home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / bios.dir / 00209.ls < prev    next >
Encoding:
Text File  |  1995-08-02  |  495 b   |  18 lines
  1. on mouseDown
  2.   global gSTextStart, gSTextEnd, gSTextSprite
  3.   puppetSound("click down")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   puppetSound("click up")
  9.   set the ink of sprite the clickOn to 36
  10.   updateStage()
  11.   set cnum to the castNum of sprite gSTextSprite
  12.   if cnum = gSTextStart then
  13.     set the castNum of sprite gSTextSprite to gSTextEnd
  14.   else
  15.     set the castNum of sprite gSTextSprite to cnum - 1
  16.   end if
  17. end
  18.